home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vi 88.d64 / shuffle one.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  579b  |  5 lines
  1. 40 PRINT"[147]":FORA=1TO800:NEXTA:FORB=54272TO54296:POKEB,0:NEXTB:V=54296:W=54276:A=54277:HF=54273:LF=54272:FORY=1TO3:FORX=1TO25:POKEV,15:POKEW,129:POKEA,15:POKEHF,60:POKELF,100:POKEHF,0:POKELF,0:POKEW,0:NEXTX:FORT=1TO300:NEXTT:FORZ=1TO40
  2. 170 POKEV,15:POKEW,129:POKEA,128:POKEHF,90:POKELF,140:POKEHF,0:POKELF,0:POKEW,0:NEXTZ:FORS=1TO500:NEXTS:NEXTY:PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]":PRINT:PRINT:PRINT"  HERE IS ONE SHUFFLING PROGRAM.":PRINT:PRINT"  THIS ONE SHUFFLES FAST AND SOME-":PRINT
  3. 260 PRINT"  WHAT CLEAN REMINDING ONE OF MAYBE":PRINT:PRINT"  A VEGAS DEALER.  PROGRAM #2 SOUNDS":PRINT:PRINT"  A LITTLE MORE LIKE YOU AND I DEAL.":PRINT:PRINT"  TAKE YOUR PICK, EITHER ONE WILL":PRINT:PRINT"  ENHANCE YOUR CARD GAME."
  4. 310 FORC=1TO6000:NEXTC
  5.